home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / internet-tools / connect-line / cl / rexx / cl-bretteroff.clrexx < prev    next >
Encoding:
Text File  |  1996-02-05  |  2.9 KB  |  120 lines
  1. /*
  2. **  $VER: CL-BretterOff.rexx 2.1 (05 Feb 1995)
  3. **
  4. **        © 1995 Ralf Ramge
  5. **
  6. **  PROGRAMNAME:
  7. **      CL-BretterOff.rexx
  8. **
  9. **  FUNCTION:
  10. **      Demonstrations-Skript zur cl_rexx.library, Connectline 5.0
  11. **
  12. **      Connectline © 1986-1995 Oliver Wagner, Mathias Mischler
  13. **      cl_rexx.library © 1995 Mathias Mischler
  14. **
  15. **      Dieses Skript trägt ein System aus den Verteilern aller Bretter
  16. **      aus und speichert die Namen der veränderten Bretter individuell
  17. **      für jedes System. Macht das Leben etwas einfacher, wenn eine Poll-
  18. **      verbindung unvermittelt gekündigt wird oder ein Point in Urlaub
  19. **      fährt. Siehe auch CL-BretterOff.rexx.
  20. **
  21. **  $HISTORY:
  22. **
  23. **      0.1  - Erste Alpha-Version
  24. **      0.2  - Datenfiles nach CONNECTLINE:Data umgelegt
  25. **             Integration ins ARexx-Menü des Servers
  26. **      0.3  - ASSIGN LIBS: CONNECTLINE:Libs ADD eingefügt
  27. **      1.0  - Datenfiles jetzt in das endgültige Verzeichnis
  28. **             CONNECTLINE:Rexx/Data.
  29. **             Veröffentlichungsreife Version
  30. **      1.1  - font-sensitiv
  31. **      1.11 - Logfileeintrag
  32. **      1.2  - Auf neue Arbeitsweise von CLGET_BoardBoxList() angepasst
  33. **      1.21 - Anpassung auf cl_rexx.library 1.20
  34. **      1.22 - Anpasung an Aufruf durch CL-PointUser.clrexx
  35. **      1.23 - Schnellere Abarbeitung
  36. **       2.0 - Hauptroutine in clrexx-Modul ausgelagert (HOLD ON)
  37. **       2.1 - kleinere kosmetische Fixes
  38. **
  39. */
  40.  
  41.  
  42. system=upper(arg(1))  /* Parameter einlesen */
  43. if system~='' then nowindow=true
  44. else nowindow=false
  45. mode='W'
  46. i=1
  47. ctr=0
  48. mapsmod='CONNECTLINE:Rexx/Modules/maps.clrexxmod'
  49. iomod='CONNECTLINE:Rexx/Modules/stdio.clrexxmod'
  50.  
  51.  
  52. /* rexxsupport.library öffnen */
  53.  
  54. if ~show('L','rexxsupport.library') then do
  55.     if ~addlib('rexxsupport.library',0,-30,0) then do
  56.         exit 10
  57.         end
  58.     end
  59.  
  60.  
  61.  
  62. if nowindow=false then do
  63.  
  64.     /* Fontsize ermitteln */
  65.  
  66.     gfxbase=showlist(l,'graphics.library',0,a)
  67.     call forbid
  68.     FontAddress=next(gfxbase,154)
  69.     Fontsize=c2d(IMPORT(offset(FontAddress,20),2))
  70.     call permit
  71.     windowwidth=Fontsize*50
  72.     windowheight=Fontsize*15
  73.     windowY=Fontsize+1
  74.     WindowX=Fontsize
  75.  
  76.  
  77.  
  78.     /* Standard-IO umleiten */
  79.  
  80.     /* cl_rexx.library öffnen */
  81.  
  82.     if ~show('L','cl_rexx.library') then do
  83.         if ~addlib('cl_rexx.library',0,-30,0) then exit 10
  84.         end
  85.  
  86.     screen=CLGET_FrontScreenName()
  87.     call close STDOUT
  88.     if ~open(STDOUT,'CON:'windowX'/'windowY'/'windowwidth'/'windowheight'/CL-BretterOff/SCREEN'screen,'W') then
  89.         exit 20
  90.     else do
  91.         call close STDIN
  92.         call open STDIN,'*',R
  93.         call pragma '*'
  94.         end
  95.     end
  96.  
  97.  
  98. /* Hauptprogramm */
  99.  
  100. address command
  101.  
  102. if system='' then do
  103.     options prompt "Systemname :"
  104.     pull system
  105.     end
  106.  
  107. if system='' then exit
  108.  
  109. 'rx 'iomod' CURSOROFF'
  110. 'rx 'mapsmod' HOLDON 'system
  111.  
  112. if nowindow=false then do
  113.     options prompt "<Bitte drücken Sie RETURN>"
  114.     pull dummy
  115.     end
  116.  
  117. 'rx 'iomod' CURSORON'
  118. exit
  119.  
  120.